home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_26_(10-1984).d64 / cursor get_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  355b  |  11 lines
  1. 10 GOSUB1102:PRINTA$;:GOTO10:REM THIS IS THE "HOST" PROGRAM
  2. 1101 GOTO1109:REM GET WITH CURSOR BLINK
  3. 1102 XL%=PEEK(211)
  4. 1103 IFXL%>39THENXL%=XL%-40:GOTO1103
  5. 1104 XL%=XL%+PEEK(214)*40+1024:XC=54272+XL%
  6. 1105 POKEXC,PEEK(646):XO%=PEEK(XL%):XT%=XO%:XQ%=128:IFXO%>127THENXQ%=-XQ%
  7. 1106 XT%=XT%+XQ%:POKEXL%,XT%:XQ%=-XQ%:FORXR=1TO60:REM CHANGING 60 CHANGES BLINK SPEED
  8. 1107 GETA$:IFA$<>""THENPOKEXL%,XO%:RETURN
  9. 1108 NEXT XR:GOTO1106
  10. 1109 REM
  11.